home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibtscr4.arc / SYS2D.SCR < prev    next >
Encoding:
Text File  |  1986-01-08  |  768 b   |  36 lines
  1. PARAM TE=2
  2. PARAM MO=17
  3. PARAM TT=XC
  4. CLEAR
  5. MESSAGE " ************** DIALING PLANTZ'S SYSTEM **************"
  6. DIAL "1"
  7. IF NOT CONNECTED
  8.    MESSAGE "   ********** REDIALING PLANTZ'S SYSTEM  **********"
  9.    HANGUP
  10.    Redial
  11. ENDIF
  12. WAITSTRING "==>"
  13. STEXT "ID    |"
  14. WAITSTRING ">"
  15. STEXT "    |"
  16. REPEAT
  17.    WAITSTRING "X,D,V,?)"
  18. UNTIL WAITSTRING
  19. STEXT "F|"
  20. DELAY 30
  21. IF CONNECTED
  22. ENDIF
  23. REPEAT
  24.     WAITSTRING "[DIR=ALL]--> "
  25. UNTIL WAITSTRING
  26. STEXT "D;PIBSCR4.ARC;C|"
  27. RECEIVE "PIBSCR.ARCT" XC
  28. REPEAT
  29.    STEXT "G|"
  30.    WAITSTRING "[DIR=ALL]--> "
  31. UNTIL WAITSTRING
  32. HANGUP
  33. CLEAR
  34. MESSAGE "               DOWNLOADING COMPLETED !!   "
  35. EXIT
  36.